home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SCH110B.ZIP;1 / INTLIST.PRG < prev    next >
Encoding:
Text File  |  1993-11-14  |  1020 b   |  52 lines
  1. *****
  2. * Intlist
  3. * Function to control the intro list box
  4. * You may note the similarity to the FTRLIST function. It was quickly
  5. * copied and adapted.
  6. *****
  7. if mvparm1=1
  8.     imgsay(04,34,14,15,-1,"","INTRODUCTION")
  9.     *****
  10.     * start up of imglistbox()
  11.     * first screen of intro list file
  12.     *****
  13.     mvfeatures=memoread("intro.txt")
  14.     mvcount=mlcount(mvfeatures,50)
  15.     mvscreen=iif(mvcount<=23,mvcount,23)
  16.     mvline=0
  17.     mvtoprow=5
  18.     mvlastline=29
  19.     mvcol=14
  20.     do while mvline<=mvscreen
  21.         mvline=mvline+1
  22.         mvtext=memoline(mvfeatures,50,mvline)
  23.         imgsay(mvtoprow+mvline,mvcol,14,15,-1,"",mvtext)
  24.     enddo
  25.     return 1
  26. endif
  27. if mvparm1=2
  28.     *****
  29.     * Up arrow press
  30.     *****
  31.     return 1
  32. endif
  33. if mvparm1=3
  34.     *****
  35.     * Down arrow pressed
  36.     *****
  37.     return 1
  38. endif
  39. if mvparm1=4
  40.     *****
  41.     * Exit
  42.     *****
  43.     return 0
  44. endif
  45. if mvparm1=5
  46.     *****
  47.     * button press inside-ignore
  48.     *****
  49.     return 1
  50. endif
  51. return 1
  52.